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EDTSCHMDELCHR = delete characters 18-Sep-19 4 $3:49 08 AX-11 Oh foenze V4.0-74 
14-Sep-1984 12:22: EDT.SRCICHMDELCHR.BLI; 


: 1 001 ZTITLE “EDTSCHMDELCHR = delete characters’ 

$ ¢ OOe MODULE EDTSCHMDELCHR ! Delete characters 

; ? Booz “ gPENT = *v04-000' ! File: CHMDELCHR.BLI Edit: JBS1006 
3 5 0005 1 BEGIN 

3 6 8208 1! 

, 4 sit 1 ROSES TSTOS IIT STITT TTT ITI TIT T III ITITI CII T ILI TILL LILI LILI LLTITLTLiTirtitititiit 
3 0008 1 !* * 
; 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
$ 3 dB : :* ALL RIGHTS RESERVED. * 
° . a7 
3 i $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 616 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 
“ars 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 sid : be TRANSFERRED. * 
; '® e 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $8 poss : ” CORPORATION. * 
5 i® ® 
$ 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @& 0026 1 !« # 
ae a 0027 1 !« * 
: 28 C028 1 came eee eee RARER AERA ERE RARER E REE E TERA EAE REREEEE 
: 2 ik94 1! 

; 30 0030 1 

s 351 0031 1 !+4+ : 

H 32 4 1! FACILITY: EDT -=- The DEC Standard Editor 

> = 0033 1! 

> i 0034 1 ! ABSTRACT: 

; = 0035 1! ; 

; 4 sit) : This module deletes text on the current Line (change mode). 

3 4 sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

3 re mee : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

: 62 0042 1 ! MODIFIED BY: 

s 63 0043 1! , 

: «44 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 

3; 65 0045 1! eatrect ing the routine DELETE_CHARS from module CHANGE.BLI. 

; 6 0046 1 ! 1-002 - Regularize headers. JBS 27-Feb-1981 

: 67 0047 1 ! 1-003 - Fix module name. JBS 03-Mar-1981 

; «648 0048 1 ! 1-004 - Improve some comments. JBS 02-Jun-1981 

: 49 0049 1 ! 1-005 - New screen update logic. JBS 1 “wed 

; 29 ones : : 1-006 = Change the call to EDTSSMRK_LCNHG. JBS 27-Dec-1982 

: 52 0052 1 


LCHR.BLI; 
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EDTSCHMDELCHR 
04-000 


! Delete part of the current Line 


EDTSSDEL_CHS : NOVALUE; 
EQUATED SYMBOLS: 
EXTERNAL REFERENCES: 
In the routine 


INCLUDE FILES: 
OWN STORAGE: 


- 
) 
c mw 
o fe 
- 
~~ ww 
> = 
s 5 
~~ ww 
v 
os uw 
a oO 
> 
us 
2 = 
- 2 
Qo - 
”" 


' 
. 
J 
. 
' 
* 
' 
* 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
4 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 


REQUIRE ‘EDTSRC:TRAROUNAM’; 


FORWARD ROUTINE 
REQUIRE ‘EDTSRC:EDTREQ'; 
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15 
EDTSCHMDELCHR EDTSCHMDELCHR = delete characters 1$-32 $1984 23:49: AX=-11 Bliss-32 V4.0-74 Page 3 | ED 
104-000 EDTSSDEL_CHS = delete characters 12280871984 $3:33:98 EDT. SRCICHMDELCHR.BLI; 7 (3) va 
; 3A ] ZSBTTL “EDTSSDEL_CHS = delete characters’ ; 
; 9 § 1 GLOBAL ROUTINE EDTSSDEL_CHS ( ! Delete characters ; 
3 660 1 FC, ! Position of first character to delete 3 
oy 661 1 LC ! Position of last character to delete 3 
4 3 066 1 ) : NOVALUE = é 
2s . 665 1 ; 
; «694 64 1 S44 : 
3 32 665 : FUNCTIONAL DESCRIPTION: : 
; 97 beee 1 / This routine deletes text on the current Line between the : 
; 98 68 1! two pointers FC and LC. 3 
; 299 $3 1! 3 
3 i” 534 ! FORMAL PARAMETERS: : 
: 10 672 1: FC Position of the first character to delete : 
s° 36 73 1! 3 
3: 6104 0674 1! LC Position of the last character to delete 3 
; 105 0675 1! 3 
: 138 +t : IMPLICIT INPUTS: ; 
: 108 0678 1! EDTSS$A_SEL_POS | : 
: 109 79 1! EDTS$A_LN_END 3 
: 110 01! 3 
3 ae bees : IMPLICIT OUTPUTS: : 
; 118 0683 1: EDTS$A_SEL_POS | ; 
: 114 0684 1! EDTSSA_LN_PTR ; 
3; 6115 0685 1! 3 
s 11 8 1 ! ROUTINE VALUE: 3 
.. Sy 8 1! $ 
: 8 06891 i _— | 
: 120 0690 1 | SIDE EFFECTS: | ; 
: 121 0691 1! : 
3 \$¢ aoe : : NONE 
: 13a 694 | i= | 
3 125 0695 1 
: 1$8 Beas BEGIN 
: 128 0698 EXTERNAL ROUTINE 
s Yer 0699 EDTSSMRK_LNCHG : NOVALUE, ! Track Line updates 
_ ? EDTSSUPD_LNLEN : NOVALUE, : Update the length of the current Line 
3 (Ua 701 EDTSSSAV_LN : NOVALUE, ! Save a Line in the pyest tory buffer 
3 13 44 EDTSSSEL_RNGPOS; !' Compare the select Line with the current Line 
cs oF EXTERNA 
Mabe 705 EDTSS$A_SEL_POS, ' select position. 
3 4% 7 EDTSSA_LN_END, ! End of current Line pointer 
: 9 7 EDTSSA_LN_PTR, ! Current character pointer 
ee. 708 EDTS$T_LN_BUF ; ' Line buffer 
; 139 709 
: 140 710 LOCAL 
2) : 
: 128 8 ‘+ 


15 

E ELCHR EDTSCHMDELCHR = delete characters 18. -$ep-1984 249: AX-11 Bliss-32 V4.0-742 P 4 

BL 600. EDTSSDEL CHS - delete characters 14- aes fi $3:33:98 EDT .SRCICHMDELCHR-BL i +4 aye (3). 

3 128 re } Compute Length of the delete, and quit if zero. 3 
: 146 216 "LEN = CHSDIFF (.LC, AO; : 
; 16 a EDTSSSAV_LN (.FC, .LEN) ; 
: 129 ig IF (.LEN EQL 0) THEN orien : 
: } : 189 1+ 
: } ¢ f ¢ ; Watch out for select range, adjust as necessary. : 
: 154  & ® : 
: 155 725 IF (EDTS$SSEL_RNGPOS () EQL 0) : 
: 6 g $ : THEN ; 
: 158 7 g i This is the selected Line | : 
: 122 7 t= $ 
: 161 4 ° IF CHSPTR_GTR (.EDTSS$A_SEL_POS, .FC) | 
° . . oe | Py 
: 188 O78 soles a ae | 
; 164 0734 IF CHSPTR_GTR (.EDTSS$A_SEL_POS, .LC) | : 
: 166 97 6 EDTS$A_SEL_POS = CHSPLUS (.EDTSSA_SEL_POS, -.LEN) | : 
+ 167 7 ELSE : 
: 168 0738 EDTSSA_SEL_POS = .FC; : 
: 193 $728 1+ r 
: 171 0741 ; Now, adjust the Line. : 
: 173 Eek: "  EDTSSCPY_MEM (CHSDIFF (.EDTSSA_LN_END, .LC), .LC, .FC); : 
+ 174 0744 EDTSSUPD"LNLEN (-.LEN); : 
: 175 0745 EDTSSMRK~LNCHG (scR _EDIT_MODIFY, .FC - EDT$$T_LN_BUF); : 
3 176 O7e6 2 EDTSSA_LA_PTR = .FCT 3 
: 17 0747 1 END: ! of routine EDTS$$DEL_CHS : 


. EDTSCHMDELCHR EDTSCHMDELCHR - delete characters 
-IDENT \v04-000\ 

-E EDTSSMRK =p ncns 1H rg LNLEN 

“EXTRN EDTSSSAV~L 5 bbTSSS RNGPOS 


-EXTRN EDTSSA set HET wt 
SEXTRN EDTSSA~LN_ BTR EDTSST “CNY ‘aur 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


01FC 00000 ENTRY EDTSSDEL CHS. Save R2,R3,R4,R5,RO,R7 RB ; 0659 
$8 000000006 00 9 0000 HOVAB — EDTSSA_ SEL_POs, ; | 
5 04 AC 00 000 MOVL FS. ; 0716) 
56 08 C3 000 SUBL3 R7, LC, LEN ; | 
$ pd 0001 PUSHL LEN : 0717 
DD 0001 PUSHL : 
000000006 00 2 FB 00016 CALLS #2, EDTSSSAV_LN ; | 
6 D3 9001 Istt LEN : 0719. 
4 1 iF BEQL $ ; 
000000006 00 90 FB 00061 CALLS #0, EDTSSSEL_RNGPOS : 0725 
D 8 TSTL = RO ; 


ERT ORIROEL Com 


EDTSCH 
EDTSSD 


08 


50 000000006 
67 08 
000000006 
7E 
000000006 
000000006 
; Routine Size: 118 bytes, Routine 


; 178 0748 1 
; 179 0749 1 !<BLF/PAGE> 


HMDELCHR = delete characters 
DEL_CHS = delete characters 


15 
18. -Sep- AX-11 Bliss-32 V4.0-74 
ease 13Re $3:35:98 = PANTY BU issc3e Va O74 
16 12 0002A BNEQ 2% 
50 8 8 8 C MOVL  EDTS$A_SEL_POS, RO 
5 D1 O002F CMPL RO. R?7 
9 1B 00032 BLEGU 2 
AC D1 00 CMPL = RO, LC 
9 1 8 BLEQU 1$ 
68 ¢ 0 A SUBL LEN, EDT$$A_SEL_POS 
£8 g DO OOO3F 1$: MOVL. R7, EDTS$A_ SEL_POS 
00 08 of s 042 28: SUBL LC, EDTSSA— LN. END, RO 
BC 5 004 MOVCS RO, aL_c, (R 
0 oy FE 098 CATS teh (S) LNLEN 
50 0000006 90 4 O5A MOV EDTS$T_LN_BUF, 
5 C3 00061 SUBL3 RO, R7> -TSP) 
00 8 3 S008? CALLS #2, EDTSSMRK_LNCHG 
00 9s DO 0006E MOVL +e EDT$$A_LR_PTR 
04 00075 3$: RET 


Base: _EDTSCODE + 0000 


Page 


Bee Se Ge Se Se Se Se Fe Se Be Se Se Se Ge Se Ge Se Be 


. 
o 
. 
. 
7 
eo 
> 
. 
. 
. 
. 
. 
. 
- 
o 
. 
2 
- 
& 
. 
eo 
. 
. 
7 
ce 
. 
2 
. 
. 
. 
6 
. 
e 
. 
*. 
. 
. 
. 
. 
- 
e 
. 
. 
. 
o 
. 
* 
o 
a 
. 
oO 
° 
. 
. 
. 
. 
o 
. 
Oo 
. 
o 
7 
oe 
. 
. 
. 
o 
. 
e 
- 
oO 
. 
e 
° 
cm 
7 
e 
> 
e 
. 
o 
. 
e 
. 
a 
= 
e 
© 
eo 
. 
_ 
7 
o 
. 
. 
° 
e 
° 
e 
. 
e 
. 
- 
. 
o 
. 
. 
7 
e 
. 
oe 
. 
. 


F 15 
EDTSCHMDELCHR EDTSCHMDELCHR = delete characters 15-Sep- AX-11 Bliss-32 V4.0-74 Page 
104-000. EDTSSDEL_CHS = delete characters 14- ~Sep -1 1984 13:33 38 EDT. SRCICHMDELCHR.BLI; . 
18) O73) : END ! of module EDTSCHMDELCHR 
188 752 0 ELUDOM 
H PSECT SUMMARY 
: Name Bytes Attributes 
: -EDTSCODE 118 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 
; Library Statistics 
; oveccsse Syabel§ ecocesee Pages Processing 
5 File Total Loaded Percent Mapped Time 
> _$255$DUA28: EDT - SRCJEDT 3221 377 2 0 40 00:00.2 
; ~$255$DUA28: SRCJPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
: OL ISS/CHECK= (FIELD. INITIAL .OPTIMIZE) /NOTRACEBACK/LISeL ISS: CHRDELCHR/0BJ=08JS: CHADEL CHR MSRC$: CHMDELCHR.BLI/UPDATE=(ENH$:C 
3; Size: 118 code + 0 data bytes 
; Run Time: 00:11.3 
; Elapsed Time: 00:14.8 
; Lines/CPU Min: 4000 
3 Lovenes/CPU-Rin: 11388 
3 Y Used: 73 pages 
5 — ation Complete 
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